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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
® 
® 
® 
3 ® 
:® THIS SOFTWARE st uinee unee A LICENSE AND MAY BE USED AND rte * 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
:* INCLUSION OF THE ABOVE oe con etcee NOTICE. THIS SO OF TWARE OR ANY OTHER * 
i COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
!® TRANSFERRED. . 
: ® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. ® 
. ® 
:* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
!® SOFTWARE ON EQUIPMENT WHICH iS NOT SUPPLIED BY DIGITAL. * 
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FACILITY: ERF, Error Log Report Generator 
i ABSTRACT: 


This routine will determine if the previously read entry 
meets user specified selection criteria. 


' 

1 

! 

! 

' 

| ENVIRONMENT: 
VAX/VMS operating system, user mode. 

AUTHOR: Sharon Reynolds, CREATION DATE: January 1983 
Modified by: 
! 

s 

! 

{ 

1! 

1 

i 

i 

1 

i 

' 


v04-001 SAR0295 Sharon A. Reynolds 1-Nov-1984 
Fixed a bug with /exc Lu=unknown, 
vO3-022 EAD0179 Elliott A. preyton 6-Jul-1984 
Obtain LSTLUN value tres SYECO 
v03-023 ag te Sharon A, Reynolds 19-Jun-1984 


Added another check for device soters ten and entry 
select on combinations to fix a bu th 
/INC= (Me ~ VOLUME ) che y 7 INCE (TAPE , VO UME). 
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v03-022 weele me A Drayton ge 23-May-1984 
in 
in VERIFY DEVICE. ae e address of device name 


V03-021 SARO267 Sharon A. Reynolds La! -1984 
C 


- Added code to set the end value indicator when 
the last selected entry (/entry) is found. 


v03-011 SARO181 Sharon A. Reynolds, 13-Dec-1983 
ee © qeeee eset references. 

ce attention keyword support. 
Aad te entries to device errors entry List. 
Add ae entry check for bus class selections. 
Removed Logmessage keyword. 
Add unsolicited_mscp eyword support. 
Added incompleté entry message. 


v03-010 SARO176 Sharon A. Reynolds, 21-Nov-1983 
- moneyed ed un-necessary check for outputting all 
entr 
- Changed’ reference to report type. 


1 ' 

1 ' 

1 1 

1 4 

1 ' 

1! - Updated VERIFY DEVICE to support longer device names. 

1 - Added check for unknown entry output to replace code 
iee8 ! that was previously removed. 
0067 1! V03-020 SARO254 Sharon A. Reynolds 23-Apr-1984 
0068 1! Added flag to /before onees to stop execution when 
iH ! } last entry found. 
0071 1! v03-019 pAoots) Elliott A. Dra 14-Apr-1984 
B08 : Fixed structure names in VERIF PY OE DEVICE. a 
0074 1! V03-018 EADC141 Elliott A. Drayton 12-Apr-1984 
bore : } Removed reference to OEMBET iver. 4 
0077 1! V03-017 SARO248 Sharon A. Reynolds 10-Apr-1984 
0078 1! Moved the unknown keyword tests to the verify entry 
0079 1! routine so it would go through same tests as any 
ooey : other /include or /exclude entry selection. 
0082 1! V03-016 SARO245 Sharon A. Reynolds 4-Apr-1984 
Bee? : } Added EMBSLOGMSP to device type entry table. 
0085 1! v03-015 EADON® Elliott A. Drayton 23-Mar-1984 
0086 1! Remove supoers for /UNKNOWN qualifier and added support 
sie $4 : for the UNKNOWN keyword. 
0089 1! VO3-014 EAD0115 Elliott A. brayton 9-Mar-1984 
BR90 ' } Removed emb_buf and syecom_buf. 
0092 1! v03-013 SARO 189 Sharon A. Reynolds, 13-Feb-1984 
9S ’ } Avene g *CS* device name support to device table search 
944 : - Added additional test for entry summary update. 
0097 1! v03-012 SARO184 Sharon A. Reynolds, 17-Jan-1984 
0098 ' - Fixed a bug in the output of the erf_unkentry message. 
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et 
— 


v03-009 SARO152 Sharon A. Reynolds, 7-0c t-1983 
- Added code tc output informational messages when 


se 


and unknown aatry is encountered. 

- Added the code that counts intervening logmessage 
logstatus entries. 

- Re-structured the /include and /exclude entry 


1M 
113 
1 118 
1 119 
1 420 
1 121 
1 3 § checks to fix a bug. 
2 : ? ~ Made /includ=disks/exclude=db1 a valid command. 
125 V03-008 SARO139 Sharon A. Reynolds, 20-Sep-1983 
1 $ Fixed a bug in mount/dismount output. Fixed an out 
: i of range loop. 
; 0129 v03-007 SARO122 Sharon A. Reynolds. 23-Aug-1983 
0130 Re-wrote translate_class routine for use with the 
a 1 permanent device tables. 
0135 V03-006 SARO032 Sharon A. Reynolds 22-Jun-1983 
1 4 Replaced emb_stuf with emb_buf definitions. Fixed bug 
; 0136 in dc$_bus selection. 
v03-005 SAR0029 Sharon A. Reynolds, 11-May-1983 
; Removed support for logstatus keyword. 
v03-004 SAR0013 Sharon A. Reynolds, 18-Apr-1983 


Deleted the log message and status message entries 
from the ‘control’ table. Added call to update 
entry summaries. 


SARO003 Sharor A. Reynolds 5-Apr-1983 
Removed the volume_output flag definition. Changed 
any references to volume_output flag so they refer 
to it from SYECOM, 


v03-003 


v03-002 SARO002 Sharon A. Reynolds, 5-Apr-1983 
Fixed /exclude selection bug. 

v03-001 SARO001 Sharon A. Reynolds, 29-Mar-1983 
Fixed /include="device name’, volume mount/dismount 


selection problem. 


lee tte ed et ed eo ee te te ee te te te ee te te te te te te ee ee 


' 
Required files 
REQUIRE 'SRCS$:ERFDEF.REQ’ : 


REQUIRE 'LIB$:PARSERDAT.R32" ; 
REQUIRE 'SRC$:RECSELDEF.REQ’ : 


ERF defintions > 

ERF parser data definitions 

EMB, SYECOM, LOGMSG, LOGSTS, and 
VOLMOUNT field defintions 
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740 FORWARD ROUTINE 
741 Record_selected, ! Verify entry against selections 
Pg Verify_entry, ! Verify the entry type 
74 Device_type_entry, ! Determine if it’s a device type entry 
744 Verify_device class, ' Verify the device class 
0745 yore Yecev ite ! Verify the device name 
Beco Translate_class ; ! Translate device class to a name 
0748 ' 
1o4 } Declare external routines 
Ores EXTERNAL ROUTINE 
07 ; xec_image ! Execute an image 
075 Intervene_increment, 
0754 Intervene_output, 
0755 Search queue: addressing_mode (general) , ! Search queue of devices selected 
$728 Validate_packet; ! Is the packet validate for the cpu it was logged on. 
758 : 
759 ! Declare external Literals 
760 : 


EXTERNAL LITERAL 
Erf_incentry, 
Erf_unkclass, 
Erf_unkcpu, 
Erf_unkentry, 
Erf_unktype ; 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

:.4 

: Declare external data. 
1 EXTERNAL 

1 Class_dir: REF S$BBLOCK, 
1 Device_class, 
1 Device_type, 
1 mb: SBBLOCK PSECT (EMB), 
: Exclude_flag, 

1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Exclude_mask: REF S$BBLOCK, 
Inc lude_mask: REF S$BBLOCK, 
Option_flag: REF $BBLOCK, 
Parser data: REF $BBLOCK, 


— 
ooo O00 000 00000009 WOW WO NI NINN NINN NN 


w 


oo 
on 


Summary_fla 


FW $9 OONO UE WIN O OO@NOUS wr — 


yecom: 
Unknown_entry ; 

! 
Declare literal definitions 


LITERAL 
Incomplete_entry = 128 ; 


~ 
SS we 


oO 


wn storage definitions 
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; 797 #1 Lstlun: Lon 
; 5 798 #1 Dev Selection.required: BYTE, 
; 8 799 «1 Device_status: BYTE, 
; 9 $44 1 Dev_cls_status: BYTE, 
; 0 01 1 Dev_type_entry_sts: BYTE, 
; i] B06 1 Entry _status: BYTE 
; ‘ 03 1 Validate _pkt_sts: Initial (false), 
3 804 1 Bugchks: VECTOR C3 byte.unsigned) ! Bugcheck type entries 
; 805 1 Initial (by e 
H 5 8 1 (EMBSK_CR, ' Crash 
: 807 1 EMBSK_SBC ' System bugchecks 
; 3 $43 : EMBSK-UBCS), ! User bugchecks 
; 9 0810 1 Control: VECTOR (7 wyte-ene tenet ! Control type entries 
; 240 0811 1 Initial (by e 
; 241 bai§ 1 (EMBSK_CS, ' Cold re-start 
: 24 0815 1 EMBSK_AF, ! New file created 
; 24 0814 1 EMBSK_WS, ! Warm re-start 
> 246 0815 1 EMBSK_TS, ! Time stamp 
s 265 0816 1 EMBSK_SS, ! System service message 
; 246 0817 1 EMBSK_OM ! Operator message 
; 38 0818 EMBSK-NM)), i Network message 
: 269 0820 1 Cpu: VECTOR Co byte.unsigned) ! Cpu type entries 
; 250 0821 1 Initial (by e 
s eo) 08 § 1 (EMBSK_AW, ' fernchrenous write error 
3 26 08 1 EMBSK_OBA, ! Unibus adapter error 
3; 0824 1 EMBSK_MBA, ! Massbus adapter error 
; See 0825 1 EMBSK_UI, ! Undefined interrupt 
; 255 08 $ 1 EMBSK_BE, ! Bus error 
; 256 et 1 EMBSK_SA, ' SBI alert 
: 57 0828 1 EMBSK_SI ' 11/750 fault thru SBI vector 
; 38 089 EMBSK"UES), i 11/730 unibus error 
3 $0 0831 1 Dev_errors: VECTOR C3,byte,unsigned] ! Device error entries 
$ 60) th 1 Initial byte 
3 o¢ 0833 1 (EMBSK_DE, ' Device Errors 
: 26 0834 1 EMBSK_SP ' Logstatus entries (mscp) 
: see tte ' EMBSK-LMS), ! Logmessage entries (mscp) 
; 266 0837 1 Memorys: VECTOR C2,byte,unsigned) ! Memory entries 
> 267 0838 1 Initial (byte 
: 8 0839 1 SE ! Soft ECC error 
; 9 0840 EMBSK_RE)S, i Hard ECC error 
; eri O82 1 Volume: VECTOR [2 byte.unsigned3 ! Volume change entries 
; 372 0843 1 Initial (byte 
; 2L 0844 1 EMBSK VM ! Volume mounts 
> 27% 0845 1 EMBSK_0D)5 ; | Volume dismounts 
: 275 0846 1 


ou 
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H 77 0847 1 GLOBAL ROUTINE RECORD_SELECTED = 

: 8 bacs Begin = 

: 280 0850 rts 

> 281 851 ! 

; : b83¢ Functional Description: 

: 284 0854 i This routine will determine what selection qualifiers are 
3; 285 0855 ! specified and match the appropriate fields in the current 
; 286 0856 ! entry against the selections. It return TRUE if the 

: 287 0857 ! current entry matches or return FALSE if the current entry 
: Hey tt does NOT match. 

; $30 bate } Calling sequence: 

; 39 086¢ RECORD_SELECTED () 

: see pase Input parameters: 

: 296 0866 2! None 

3; 297 0867 2! 

: 43 Bees § Output parameters: 

: 300 0870 2! None 

; 301 0871 2! 

3 302 087 § !—= 

; 303 087 

: 304 0874 2 LOCAL 

; 305 0875 § Include_status: BYTE 

; 306 0876 Initial (true), 

; wor 0877 2 Exclude_status: YT 

: $09 oars § Initial (true) ; 

; $19 pase § istlun = .syecom Csye$l_lstlunj; 

: 31 0882 2! 

; i tt 2 : Validate the packet for entry/cpu type and device class/type. 
: 315 0885 5 if NOT (VALIDATE_PACKET ()) 

: en 

5 Hs st t4 Unknown_entry = true 

: 320 Been Unknown_entry = false ; 

: 33 891 2! ; 

3 $§ 089 ! Determine if /summary selected and update that entry summary 
; ST 444 : information. 

: 325 895 if (option. flaglo t$v_summary_qual] AND 

; 326 B96 4 (.summary_flag(sum$v_entry] OR 

eg 0897 4 -summary_flaglsum$v_all_summ) OR 

3 $8 943 ms .summary_fiagl(sum$v_hisftogram))) 

3 en 

; $0 44 Exec_image (summary_dispatcher_addr,lstlun,ZREF(entry_summ_upd)) ; 
: 33 030 

3 i 90 ! If incomplete entry report the error. 
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0904 ! 
5 905 If ((NOT_ .syecom(sye$b_valid_entry]) AND 
6 90 (embLemb$u hd entry GEO” incomplete_entry)) 
7 090 Then 
5 308 ef ~ (erf_i t 1 blemb$w_hd_entry]) 
nal (erf_incentry, 1, .embLem entry]); 
40 910 Return falsé: 4 ee 
41 0911 End; 
re O16 
4 091 ! 
44 0914 : Determine whether the volume mounts/dismounts should be output or just 
a2 baie } label information saved from the entry. 
47 0917 3 If (.exclude_maskCexc$v_volume] AND 
48 0918 (, include_maskLinc$v_device_select] OR 
49 0919 -include_maskCinc$v_dev_class ponents OR 
50 0920 -include_masklinc$v_dev_attentions] OR 
51 0921 -include_maskCinc$v_dev_errors] OR 
$26 09 ¢ . inc lude_mask oe dev_timeouts])) AND 
32 092 (NOT .include_maskLCinc$V_volume] 0 
54 0924 NOT .option_flaglopt$v_output_allJ) 
355 base Then 
356 0926 ' 
357 0927 ! Indicate that volume mount/dismount entries 
339 0399 should not be output. 
360 0930 Syecom(sye$b_volume_output] = false 
36 093 Syecom(sye$b_volume_output] = true ; 
306 0938 y yeSb_ ~outp 
65 0935 Determine if the /ENTRY qualifier was specified. 


if -option_flaglopt$v_entry_qual) 
Then | 


i /Entry specified, get the address of the entry selection 
: data and determine if the number of this entry 
} is within the selected range. 


NNN 
— 
° 
o 
x 


AAW 
AN 
ws 
oo 
St a 
ms 


Begin 
If .syeconCsyeSt_recent] LSSU .parser_datalerl$l_end_entry] 

en 

' 


N 
NO 


i This entry should be within the selected range, ensure f 
the entry number is greater than the starting entry selection. 


Begin 
Lf NOT (.syecom(sye$l_reccnt] GEQU .parser_datalerl$I_start_entry)) 
en 
i Entry is NOT within the selected range, return to calling 


routine. 
Return false ; 
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Entry is NOT within the selected range, return to calling 
routine. 


VAX 
$25 


—— OD - — - — - ee 
ee 


in 
t° -syeconEsyeS_recent] GEQU .parser_datalerl$l_end_entry] 
' 
Indicate that last selected entry was found. 


Syecom{sye$b_end_value] = true ; 
Return true ; 
End ; 
End ; 


Determine if the /BEFORE qualifier was specified. 
if -option_flaglopt$v_before_qual] 
Then 


i Determine if the date/time that this entry was recorded falls 
! within the range of selected date/times. 


Begin 

1f COMPARE _QUAD (embLemb$q_hd_tine] GEQU, 

. parser_dataLer($q_end_date]) 
en 


! This entry is NOT within the selected date/time range, 
return to the calling routine. 


Begin 
Syecom(sye$b_end_value] = true ; 
Return true ; 
End ; 
End ; 


i] 
Determine if the /SINCE qualifier was specified. 


if .option_flaglopt$v_since_qual] 
Then | 


i Ensure that the entry date/time is greater than the starting 

time/date selection. 

Begin 

If NOT COMPARE_QUAD(embCemb$q_hd_t ime] ,GEQU, 

ra parser_dataler($q_start_date)) 
en 


' 
! The entry does NOT meet that selection criteria for date/time, 
} return to the calling routine. 

Return false ; 
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: 448 1 18 End ; 

3; 449 101 

5 t28 1020 ' : 

; 432 1 } Determine if the /SID_REGISTER qualifier was specified. 
: 45 1 if .option_flaglopt$v_sid_reg qual) 

3 cee 1024 Then . ea 

; 455 1025 ! 

3 $28 10 § ! Determine if the entry sid matches the selected sid. 
; 45 10 : 

; 458 1028 Begin h 
; 459 19 9 If NOT .parser_datalerlS$l_sid_selection] EQLU .embLemb$l_hd_sid] 
; ree ; , wen 

:; 46 19 § i Entry sid does NOT match selected sid, return to calling 
: 46 10 i routine. 

: 464 1034 i 

: 4665 1035 Return false ; 

; 466 1938 : 

; 467 10 

; 468 1038 Device_status = false ; 

; 469 1039 Dev_clS_status = false ; 

3; 470 1040 Entry_status = false ; 

3; 471 1041 

3 rtf Hk Dev_type_entry_sts = DEVICE_TYPE_ENTRY () ; 

3: 474 1044 If .option_flaglopt$v_include_qual) 

: 475 1045 Then 

: 47 1046 Begin 

3 467 1047 Exclude_flag = false ; 

: 478 1048 

: 479 1049 If .dev_type_entry_sts 0 

: 480 1050 (,embLemb$w_hd_ oettry EQLU EMBSK_VM) OR 
3; 481 1051 4 (,embCemb$w_hd_entry] EQLU EMBS$K_VD) 

; 48 1936 3 n 

; 48 1053 4 egin 

3; 484 1054 4 If .include_maskCinc$v_device_select] 

; 485 1055 4 Then 

: 486 1938 5 Beg 

: 487 1057 § iv OVERIFY DEVICE () 

; 488 1058 5 hen 

; 489 1059 5 hee status = true 

; 490 1060 5 

; 691 1061 5 ** pevice.stetus = false ; 

; 49 1906 4 nd ; 

; 49 1 4 

3: 494 1 4 If .include_maskCinc$v_dev_class_select] 
3; 495 1065 4 Then 

; rhs 1066 "Beg 

; 49 1067 if VERIFY DEVICE_CLASS () 

; rhs 1068 hen 

; 4 199) Dev_cls_status = true 

: 500 1070 Else 

; 501 1071 “bev_cls_ status = false ; 

3 206 1 s 4 End ; 

; 4 107 ; End ; 

; 504 1074 
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05 75 ; If .include_maskCinc$v_entry_select] 
89 6 Then 
77 & Begin 
08 78 If VERIFY_ENTRY () 
tt eases 
ntry_status = true 
13 O83 aga t ¥ tat fal 
ntry_status = false ; 
318 0 g End ;: 
14 084 
515 5 
218 56 If (.include_maskCinc$v_device_select] AND 
\ O88 -dev_type_entry_sts AND .device_status) OR 
315 089 (. include_maskCinc$v_dev_class_select] AND 
321 o30 -dev_type_entry_sts AND Tdev_cls_status) OR 
5 ¢ O36 (. include_maskCinc$v_entry_select] AND .entry_status) 
2$ 09 en 
524 094 Include_status = true 
525 095 se 
26 096 Include_status = false ; 
27 097 
8 098 : 
9 099 If .include_maskCinc$v_device_selecti AND 
0 00 -include_maskCinc$v_entry_select] 
3 01 Then 
3 O Begin 
3 Include_status = false ; 


If .dev_selection_required 
Then 

Begin ; 

If (.entry status AND .device_status) OR 
(.dev_type_entry_sts AND Tdevice_status) 
Include_status = true ; 

Else 

Begin 

i! -dev_type_entry_sts AND .device_status 

en 


Begin 
Include_status = true ; 
n 


Else 
Begin 
iJ (NOT .dev_type_entry_sts AND .entry_status) 


en 
Include_status = true ; 
nd ; 
End ; 
End ; 
If + include maskt incSy_dev class select? AND 
Vv 


- inc ludé_maskCinc$V_enfry_setect 
Then 


DPAAADATM IAS BEBE EEE EP 


oa ww 
ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee oe oe ee oe ee ee ee 


ee a a et a a a et a es 8 bs a Ws as 
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PAA ES DID. D. IDE SDD DE II I BB WII III BWI PAE WWI FPP 


sw alah sh Ab Ab dh Ah dh db db db dh tb ib ok dh hb bh tb th th db db db Ab dh sh shal al Sah ak al al eal 
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H 6¢ 11 ¢ 4 Begin 

3 36 11 4 Include_status = false ; 

; 564 1134 4 : 

3 Fee 1135 4 lf .dev_selection_required 

> 566 11 § 4 Then 

; 567 11 5 Begin 

; 568 1138 5 If (,entry status AND .dev_cls_status) OR 
; 569 1139 g (.dev_type_entry_sts AND .dev_cls_status) 
; 570 1140 

; 571 1141 5 Include_status = true ; 

; 276 1336 5 

; of 11435 4 Else 

; 574 1144 5 Begin 

: 379 1145 5 If .dev_type_entry_sts AND .dev_cls_status 
; 576 1146 5 Then 

3 Ser 1147 6 Begin 

; 578 1148 6 Include_status =~ true ; 

; 3 1149 6 n 

; 580 1150 5 Else 

3 SB) 1151 6 Begin 

3 286 1136 7 If (NOT .dev_type_entry_sts AND .entry_status) 
; 1153 6 Then 

; 584 1154 6 Include_status = true ; 

> 585 1155 5 : 

; 586 1156 4 End ; 

; 587 1157 3 End ; 

; 588 1158 3 

; 589 1159 § End ; 

; 590 1160 

; 591 1161 2! 

; 236 1166 2 !If not /include option then include_status = false 
; 1163 2! 

; 594 1164 § 

3 395 1165 If .option_flaglopt$v_exclude_qual) 

> 596 1166 ¢ Then 

; 597 1167 Begin 

; 598 1168 Exclude_flag = true ; 

; 599 1169 

; 600 1170 If .dev_type_entry_sts OR 

; 601 1171 Conbtenb§u_hdcentry] EQLU EMBSK_VM) OR 
; 60 176 4 (,embLemb$w_hd_entry] EQLU EMBSK_VD) 

: 60 1173 3 Then 

; 604 1174 4 egin 

; 605 1175 4 If .exclude_maskCexc$v_device_select] 

; one 1108 4 Then 

; 60 1177 5 Begin 

; 608 1178 é If VERIFY_DEVICE () 

: 609 1179 Then 

; 610 1180 Device_status = true 

; 611 1181 

; oi¢ 11 ; Device_status = false ; 

g 61 11 4 3 

; 614 1184 4 

; 615 1185 4 If .exclude_maskCexc$v_dev_class_select] 
; 616 11 4 Then 

; 61 11 5 Begin 

; 618 1188 5 If VERIFY_DEVICE_CLASS () 


N— 
wa 
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> 619 1188 Then 

; 620 1190 Dev_cls_status = true 

; 621 1191 Else 

» 6 ¢ 1138 Dev_cls_status = false ; 

; 6 1195 4 End ; 

> 624 1194 End ; 

$ <9 1195 

; 626 1196 If .exclude_maskCexc$v_entry_select] 

3 O27 1197 Then 

; 628 1198 4 Begin 

; 629 1199 4 If VERIFY_ENTRY () 

; 630 1200 4 Then 

; 6351 1201 4 Entry_status = true 

; 6 ¢ 1 8 4 

; 6 1205 4 Entry_status = false ; 

> 634 1204 ; End ; 

; 635 1205 

; 636 1206 4 If (.exclude_maskCexc$v_device_select] AND 

; oe! \sof 3 -dev_type_enrry_sts AND .device_status) OR 

; 639 1209 4 (.exclude_maskCexc$v_dev_class_select] AND 

3 on 1$19 ; -dev_type_entry_sts AND Tdev_cTs_status) OR 
; one 1$1§ & (.exclude_maskCexc$v_entry_select] AND .entry_status) 
; 644 1214 ; Exclude_status = false 

; 645 1215 

; 646 1 18 3 Exclude_status = true ; 

; 647 121 

; 648 1218 

; 649 1219 If .exclude_maskCexc$v_device_select] AND 

; 650 1220 : -exclude_masklexc$v_entry_select 

; 651 1221 n 

3 626 iss¢ 4 Begin 

; 65 1225 4 Exclude_status = true ; 

3; 654 1224 4 ‘ 

3 639 1225 4 If .dev_selection_required 

; 656 1226 4 Then 

; 657 1227 5§ Begin 

; 658 1228 5 If (,entry_ status AND .device_status) OR 

: 659 1229 6 (.dev_type_entry_sts AND Tdevice_status) 
: 660 1230 5 

; 661 r+) Exclude_status = false ; 

3 peg 1 ; 5 

; 66 1 & Else 

: 664 1234 5 Begin : 

; 665 1 +H 5 If .dev_type_entry_sts AND .device_status 

; 666 1 $ 5 Then 

3; 667 1237 6 Begin 

; 668 ts 6 Exclude_status = false ; 

; 669 1239 3 

: 670 1240 Else 

; 671 1241 § Begin 

; ore 1 rk If (NOT .dev_type_entry_sts AND .entry_status) 
2 67. ise 6 Then 

3; 674 1244 g Exclude_status = false ; 

; 675 1245 : 
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; Or 1246 4 End ; 
3; 67 1247 End ; 
; 678 1248 
; 679 1249 If .exclude_maskCexc$v_dev_class_select] AND 
; 680 1250 ~exc lude_maskLlexc$v_enfry_select] 
; 681 1251 Then 
; 68 1 26 4 Begin 
; 68 1255 4 Exclude_status = true ; 
> 684 1254 4 
; 685 1255 4 If .dev_selection_required 
; 686 1256 4 Then — 
; 687 1257 5 Begin 
; 688 1258 5 If (,entry_status AND .dev_cls_status) OR 
; 689 1259 6 (.dev_type_entry_sts AND .dev_cls_status) 
; 690 1260 5 n 
; 691 1261 5 Exclude_status = false ; 
; 69 1506 5 n 
; 69 1263 4 Else 
; 694 1264 5 Begin 
; 695 1265 5 If .dev_type_entry_sts AND .dev_cls_status 
; 696 1266 5 Then 
; 697 1267 6 Begin 
; 698 1268 6 Exclude_status = false ; 
; 699 1269 6 End 
: 700 1270 5 il ae 
; 701 1271 6 Begin 
; re iste 7 If (NOT .dev_type_entry_sts AND .entry_status) 
; 703 1273 6 Then 
3: 704 1274 6 Exclude_status = false ; 
; ros 1275 5 H 
: 706 1276 4 End ; 
s ror 1277 3 End ; 
: 708 1278 3 ‘ 
: 709 1279 2 End ; ! of /exclude processing 
; 710 1280 2! 
3; 71 1281 2! IF /exclude option match, exclude_status = false. 
; rie 1¢8¢ e! 
3s 713 12835 2 
: 714 1284 2 
3 7S 1285 § ‘ Z 
3 rig 1o36 : Determine whether to count logmessage/logstatus entries. 
; rie 1288 5 If ( (.include_status) AND (.exclude_status) AND 
3: 719 1389 (.parser_datalerl$b_rpt_type) EQC full_rep) ) 
: ot 1591 nen 
: sé 1638 Determine if it was a logmessage/logstatus entry. 
: 726 $30 Begin 
: 725 1295 If (.embCemb$w_hd_entry] EQLU EMBSC_SP) OR 
: 726 1296 4 (,embCemb$_hd_entry] EQLU EMBSC_LM) 
3 ver if +44 
; fe 1298 ' : 
3; te +44 ! Count the number of logmessage/logstatus entries 
3 ae ' +4 } that might be skipped. 
; 732 1302 INTERVENE_INCREMENT (Lstlun) 
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Ww 
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S 
MEFWN—OOONOUS 
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Else 
1 


i Determine whether to Output the logstatus/logmessage 
} intervening message and if necessary output it. 


INTERVENE_OUTPUT (Lstlun) ; 


' 
' Determine if the entry met the selection criteria. 


Determine if this is an unknown entry. 
if .unknown_entry 
hen 


—dee ee ee 


Determine whether this entry should be output. 


Begin 
If .exclude_maskCexc$v_unknown_entry] 
Indicate that this entry should not be output. 


a Return false 
se 
Indicate that this entry should be output. 


Return true ; 


If (NOT .include_status) OR 
(NOT .exclude_status) 
Then | 


i Indicate that the entry should not be output by 
} returning to the calling routine with a false value. 


Return false ; 
Indicate that the entry should be output by 
returning to the calling routine with a true value. 


eturn true ; 
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nd ; ! Routine 
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IDENT \V04-001\ 
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Dd 


00005 DEVICE_STATUS: 


00000 
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00000000 

70 28 25 

2A 29 27 26 24 23 20 

0B OA 05 04 61 OC 09 O07 
64 


28 000000 
A 000000006 
59 G 
7 G 
: 
38 000° 
SE 
54 
33 
4 AS OF 
000000006 + 
000000006 
000000006 
50 


1 


sBLKB_ 
00006 DEV_cLS_§TATUS: 


-BLKB 
00007 DEV_TYPE"ENTRY_STS: 


“BLK 
00008 ENTRY STATUS: 


90009 -BLKB 

C VALIDATE. PKT_STS: 

9019 BUGCHKS:. 
j 


001C 
00024 


00 
00 


000 


: 


1 
1 


4 CONTROL: 
CPU: 


7 . 
8 MEMORYS: 


A 


C VOLUME: . 


-BLK 
-BYTE 


DEV_ERRORS: 
YTE 


-EXTRN 
-PSECT 
-ENTRY 


7, 40, 112 
2, 35, 36, 38. 39, 41, 42 
- 9, 12, 97, 4, 5, 10, 11 
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VENE_OUTPUT 
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RCH_QUEVE, VALIDATE_PACKET 
INTENTRY, ERF ‘me CLASS 
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SCODE.NOWRT, PIC,2 


EXCLUDE“MASK, R 
mB+4, 

ENTRY STATUS, RS 
#1. INCLUDE_STATUS 


#1, EXCLUDE-STATUS 
syECOMS 89. CSTLUN 


UNKNOWN_ ENTRY 
OPTION FLAG, RO 
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27 S E1 BAC #4, (RO), 4$ 

000000006 6 D MOVL SUMMARY FLAG, RO : 08% 

07 8 rb BBS #2, (ROS, ‘§ 3 
Bias (rb, 3$ + 0897 
15 60 £1 C #3. (rd), 4$ > 089 

6E DO MOVL #5. (SP) : 

f D PUSHL SP : 

FB AS OF PUSHAB LSTLUN : 

000000006 f PUSHAB SUMMARY _DISPATCHER_ADDR : 

000000906 00 F CALLS Fi} exet IMAGE 3 
iC 03 av E BLBS § SYECOM+27, 6 : 0905 

0080 &F $6 CMP mB+4, #128 : 

F BLSSU 6S : 
7E C MOVZ2WL EMB+4, -(SP) ; 0909 

1 dD PUSHL #1 ; 

000000006 8F ODD PUSHL apr INCENTRY : 

000000006 00 FB CALLS #3, CIB$SI ; 
O2F 31 BRw s 0919 
50 67 00 MOVL EXCLUDE MASK, RO : 0917 

29 $0 NF E1 BBC aig, (RO), 9§ : 
0 68 DO MOVL INCLUDE MASK, RO ; 0918 

10 60 14 £0 BBS #20, (90), 7$ : 
oc 60 15 £0 BBS #21, (Ru. > 0919 
60 09 £0 BBS (RO), 7$ : 0920 
60 0d £0 BBS ais (ROS, 7$ : 1 
1 02 ad €9 BLBc §83=—_s«a2¢ RO) : 09¢¢ 
5 68 00 MOVL INCLUDE _MASK, 20 : 09 

07 60 12 €1 BBC pig, (RO), af ; 
50 6A 09 MOVL  OPTION_FLAG, RO + 0924 

60 8B TSTw (RO) : 

04 19 BLSS 9g 3 
9 9% CLRB SYECOM*24 : 0930 

311 BRB 10 : 
65 1 90 MOVB #1, SYECOM+24 : 0935 

52 6A 00 MOVL  OPTION_FLAG, R2 : 

13 62 3 €1 BBC a3, (R2), *°S ; 
51 E8 Ad o9 MOVL SYECOM, 1 > 0945 

50 $8 D £6 MOVL PARSER DATA, RO ; 

19 AO 1 01 000€9 CMPL =e R21, 25TRO) ; 

1D 3 D BGEGU 1 ; 
15 ad 51 D1 OOOEF CMPL = R#, 21RO) > 0952 

BO 1F OOOF BLSSU : 
18 6 £9 11$:  BLBC  (R2), 148 : 0980 
50 68 C1 9008 ADDLS #5, PARSER_DATA, RO ; 0988 

06 Ab 0 000 MOVL 4, Ri ; 

04 Ad 3! D1 001 CMPL = X14 (RO) ; 

é 01 BNEQ ; 

60 02 Ag ° 001 CMPL so, (ROD ; 

F OO10A 198: BLSSU : 
06 Ad 1 30 DO10C 138:  MOVB #1, SYECOM+30 : 0995 

0283 001 BRW 69 : 
18 62 D £€1 00113 148: BBC #13, (R2), 16% ; 100 
50 68 D C1 0011 ADDLS «#13, PARSER_DATA, RO ; 1011 

1 06 Ag 00 00118 MOVL Ata, : 

04 Ad p D011F CMPL = RI, 4 (RO) ; 

8 D133 BNEQ «158 : 

60 02 A6 D1 001 CMPL =e A, (RO) ; 
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ES aos, BiB 8 Sea} |i 

op B50 0018s ROVE «PARSER BATA. RO .* : 

$6 BO oR) CHP TCRO) SERB” : 

01 =A 1 CMPL . : ; 

oe 3 13) 178: BRYN 78 ? 1038 3 

1 : 3 ° 

a Re . 

S #0, DEVICE TYPE ENTRY ; 

00000000v 99 03 FB 0014 nove RO, DEV TYPE ENTRY, STS 108s 

20 Bn Oe OOt BBs” a (RO), 198 

a = oors fi 18, vos: | atLUme uae a 1M 

o¢ sovocogee + Be 0160 LBS Dey AL VPE SgNTRY STS. 208 : 1050 2 

0040 &F 66 81 00164 CHP ; a : 

i 001 CMPW  EMB+4, #65 3 é 

te He ape ase} | 

30 14 £1 o175 BBC a ’ ino). see ce ; 1057 : 

5 ooooooov $0 90 FB 00179 seks «she yegtev Fines : 

FD OAS 01 50 Diss ROVE #1, DEVICE_STATUS é 68 

11 001 : 

et) Pe HUGE TN a Ma} |; 

’ ei 00 Fe 00198 CALLS #0. VERIFY DEVICE _CLASS ; 1067 

ese ee roe | 

Retr a5 fT Donn ere bey. cLs_ STATUS : 107) 

noe Being: be Riasmm,, : : 

60 sS Fa Soles CALLS Os VERIFY_ENTRY : 1078 é 

11 80 FB OO01AD CALLS #0, V - : : 

00000000v 99 $0 3 O1B4 Bee MD. BF STATUS ; 1080 

Ge i} OurBA Oren Ettny status 3 1082 : 

BOS GHE sit: fle TaiGFANE a : 7 

. : - ° 

20 Ye Et Qorcl Brot DEV 'TYPE-ENTRY_STS, 278 g 108 : 

08 04 fr AD OES BRI82 BLBS DEVICE STAT 353 S aces 

40 13 £1 Q01CD 278: BBC Sey 'TYre ENTRY STS, 28$ 3 1090 : 

. 7 fe AS EB OOIDS BLBS DEYICLS STALUS; 29$ > 1092 ; 

60 3G ET Oonps aes: Bac EnTay Svafus, 308 3 sone : 

¥ 9? 6 1E0 298: ROVE «#1. IRELUDE STATUS 

¢ f ol Ole PR TALUDE_ STATUS : 1999 : 

PBI aay: le Fung gta je) |: 

2F 8 16 £1 OO1EB C, #22. CRO) 368 at : 
e8 s2 $4 OOlEF CLRB INCLUDE. 
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0040 
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00000000v 
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FE 
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DV BSS BD DI BS OT OT TI 
RMS —$O $- D / NOWIM SO OMMMriOomMmmmmm Omm ommmnmo—mmmmmrn 
0D “ON "WI" BDO" DOO 0000 S$ 00D00 F $$ “OC0MDo0or “00000 
VRITS PONOPoPoPoNn 


SSOOSCSCSOSSOSOSOSOSOSOSOSOSOSOSOOSOSOSSOSOSOOSOSOOOSOOOSOSO 
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WIsLRLStad Make 


V_SELECTION_REQUIRED, 
TRY bf TUS HE ween ane 
VICE STATUS, 338 
VICE. STATUS "308" 


DEV_TYPE_ENTRY_STS, R1 
p VICE_STATUS, 35$ 


ENTRY STATUS, 36$ 
#1, IRCLUDE STATUS 
Hae (RO), &1$ 
#22. (RO). 41$ 
INCLUD 


3 


C 
fEV-TYPE_ENTRY_STS, 41$ 
DEVCLS_STATUS, 41$ 


DEV_TYPE_ENTRY_STS, RO 
DEV_CLS_STATUS, 40$ 


CNTRY_STATUS, 41$ 

#1, IRCLUDE_STATUS 
OPTION FLAG, RO 

#4, (RO), 42S 

64$ 

#1, EXCLUDE FLAG 
DEV_TYPE_ENTRY_STS, 43$ 
EMBt4, #64 


4 
EMB+4, #65 
47$ 


EXCLUDE_MASK, RO 
#20, (RO), 45$ 
#0, VERIFY_DEVICE 


RO, 448 
An DEVICE_STATUS 


DEVICE STATUS 
EXCLUDE MASK, RO 


#21, (RO), 
» VERIFY_DEVICE_CLASS 
RO, 46$ 
#1, DEV_CLS_STATUS 
47$ 
DEV_CLS_STATUS 
EXCCUDE “MASK, RO 
, (RO), 498 
; VERIFY _ENTRY 
10; 48S 
#1. ENTRY_STATUS 


ENTRY_STATUS 
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5 7 D BC 49$:  MOVL  EXCLUDE_MASK, RO ; 
08 é0 °/ E 3 BBC it (RO) 56s : _ 
4 fFFOOA : ¢ BLBC —DEV_TYPE ENTRY. STS, 50$ : 1207 

13 7D OA ¢ BLBS DEVICE STAT 2 ; 

08 15 €1 000CB SOS: BBC #21, (RO) : 

4 FF A? E9 O0eC BLBC ~——ODEV_TYPE ENTRY_STS 51$ : 

7 FE a5 €E8 0020 BLBS DEV=CLS STATUS; 52$ : 

07 60 16 €1 002D7 51$: BBC #22, (RO), 538 : 

04 34 DB BLBC = ENTRY_STATUS, 53$ : 

° p 528: CLRE GXCLUBE_STATUS 3 

2F FR t By OSES Sak; BOK” wb Lah RgEATUS ; 

2B $0 16 3 02E9° 8 «=~ BBE f $. (RO); 59$ : 

01 ED MOVB #1, EXCLUDE STATUS : 

11 FC OAS «ESD OOF BLBC CODE SELECTION. REQUIRED, 56$ ; 

04 65 £9 002F4 BLBC  ENTRY_STATUS, “55$ : 

18 FD Ad EB O0GE7 BLBS DEVICE STATUS, 58$ ; 

19 FF OAS «ES 0 Fo 55$ BLBC DEV_TYPE ENTRY. SIS. 59$ 3 

15 FD a> F9 0 a BLBC VICE_STATUS, 598 : 

51 FF AS 9A 00305 56$: MOVZBL DEV_TYPE_ENTRY_STS, R1 : 

07 51 €9 00309 BLBC ‘ 3 

06 FD A’ Es 0 i BLBS DEVICE STATUS, 58$ F 

02 63 £9 031 578: BLBC ENTRY STATUS, 59$ ; 

5 0 1 8$:  CLRB  EXCLUBE STATUS : 

8 4 18 EL O81 BBE 8522 ROD ces : 

53 oe 03 6 MOVB #1, EXCLUDE STATUS ; 

11 FC OAS. «OES 00 BLBC CODE SELECTION REQUIRED, 61$ : 

04 65 £9 00327 BLBC ENTRY STATUS, -60$ ; 

1B FE AS £8 OO30A BLBS v_CCS_STATUS, 638 : 

iG FF AS €9 00 5 60$ BLBC DEV_TYPE_ENTRY_STS, 64$ 3 

15 FE AS 9 99 BL BC DEVICLS_STATUS, 64$ ; 

50 FF a3 aA 0 ROVZBL DEV_TYPE_ENTRY_STS, RO : 

06 FE A> i 0 BLBS DEV_CLS_STATUS, 63$ ; 

y gE 0 BLBE ENIRY,StaTus. 648 ; 

32 24 ES 00 BLBC ‘INCLUDE“STATUS, 67$ : 

ef 3 £9 9 BLBC EXCLUDE“STATUS, 678 ; 

00 $9 Bt BOvE PARSER BATA. 0 

2 BNEQ . : 

os Pe Fi aa Ei" 2 

3 Beal 46-6 5$ : 

0064 &F 50 aj CMPW =s«RO, #100 ; 

¢ 2 6 BNEQ 66$ : 

F8 OAS OOF PUSHAB LSTLUN : 

000000006 00 01 Fe 0 CALLS #1, INTERVENE_INCREMENT : 

A 1 BRB 67§ : 

FB OAS OOF 0 PUSHAB LSTLUN : 

000000006 00 01 FB CALLS #1, INTERVENE_OUTPUT : 
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98 000000006 
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0 
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; Routine Size: 925 bytes, Routine Base: $CODE + 0000 


bg 6 67$: 
Be 

£3 68$ 
gh Hs os 
Bt HBB 7 


~19B2 13:28:33 


ye NOWN = te 8$ 
a9. th oer 
(RO), 


INCLUDE =STATUS, 70$ 
pice ape STATUS, 70$ 


RO 
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R 
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: ze 1351 1 ROUTINE VERIFY_ENTRY = : 
3; 1 se Begin ee 3 
; 774 1 : 
Wg : 
4 ur 36 i Functional Description: : 
: 779 1358 i This routine will determine if the current entry matches ; 
; 780 1359 : any of the selected entry Hane It return TRUE if the ; 
; 781 1360 : current entry matches or return FALSE if the current entry : 
; ee : 61 does NOT match. : 
; 28 68 i Calling sequence: ; 
; 186 1365 VERIFY_ENTRY () ; 
; 788 1367 Input parameters: ; 
: 790 1369 None ; 
: 79 1394 i Output parameters: ; 
; 79 13/6 ! 3 
3 re 1ee7 None 3 
: 79% 1378 3 ine ; 
: 797 1376 3 
2 ae : 
; oot 1328 Initialize a status indicator. : 
: 802 1381 2 Dev_selection_required = false ; F 
a 2-8 a ete 7 
3 +4 1 sae ; Determine if device attention entries are selected. ; 
: 807 1386 if ((.exclude_maskCexc$v_dev_attentions]) OR ; 
; 808 1387 (. include_maskCinc$v_dev_attentions])) F 
: BO 1339 
; at igor Determine if this entry is for a device attention. : 
: Big 1338 Begin ; 
3; 814 139 Dev_selection_requiced = true ; 3 
: 815 1394 If TembCemb$w_hd_entry) EQLU EMBSK_DA ; 
3 1g : 95 Then | 3 
; 318 1399 i Indicate that this entry does match a selected entry ; 
; 819 1398 ! type, oY returning to the calling routine with a é 
3 ase 1732 : true value. : 
: 822 140 Return true ; 3 
; 82 1006 End ; : 
: bs 104 § 
; 829 1609 Determine if bugcheck entries are selected. ; 
; 828 1209 if ((.exclude_maskCexc$v_bugchks]) OR : 
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(. inc Lude_maskCinc$v_bugchks])) 
Then 


i Determine if this entry is for a bugcheck. 


Begin 
Incr_1I from 0 to 2 do 
Begin 
i -embCemb$w_hd_entry] EQLU .bugchks{.1) 
en 
J 


i Indicate that this entry does match a selected 
! entry type, by returning to the calling routine 
with a true value. 


Return true ; 
End ; 
End ; 


t 
Determine if ‘control entries’ are selectea. 


if ((.exclude_maskCexc$v_control_entry]) OR 
(include _maskCinc$v_control_entry])) 


Determine if this entry is a ‘control entry’. 


WAI NI WII AIP PINPININPINIPYINPINDDY SS OOO HOO 


DONA NE WN 9 OOD NAWN EWN HO ODNAOUE WN (OOO NAMES WN SOO ONOUSWIR—OV00 


Begin 
Incr_ I from 0 to 6 do 
Begin 
f -embCemb$w_hd_entry] EQLU .controlC.1] 
en 
! 


i Indicate that this entry does match a selected 
! entry type, by returning to the calling routine 
with a true value. 


Return true ; 


End ; 


Fol ek et tel el a eh ee hh nh) 


' 
: Determine if ‘cpu entries’ are selected. 


if i -guc tude _masktoxcdv_cpu_entry}} OR 
(. include_maskCinc$v_cpu_entry])) 


; Determine if this entry is a ‘cpu entry’. 


WAM 


Begin 

incr I from 0 to 7 do 
Begin 
If .embCemb$w_hd_entry] EQLU .cpul.1] 
Then | 
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: 
: 
; 
Us 
; 
| 


! Indicate that this entry does match a selected 
! entry type, by returning to the calling rpatine 
with a true value. 
Return true ; 
End ; 
End ; 
' 
i Determine if device errors are selected. 


it a) -gnc bude _mask(exc$v_dev_errors]) OR 
(. inc lude_maskCinc$v_dev_errors])) 
mn, 


; Determine if this entry is a device error. 


be 
bet selection_required = true ; 
Incr I from 0 to 2 do 
egin 
4d -embCemb$w_hd_entry] EQLU .dev_errors(.1] 
hen 
' 
: Indicate that this entry does match a selected 
: entry type, by returning to the calling routine 
with a true value. 
Return true ; 


End ; 
End ; 


‘ 
Determine if machine checks are selected. 


if ((.exclude _maskCexc$v_machine_chks]) OR 
ee (. inc Lude_maskCinc$v_machine_chksJ)) 
3 j Setoratas if this entry is a machine check. 


Bex CembSu. hd_entry] EQLU EMBSK_MC 


5. 
: endtcate that this entry does match a selected 
: entry ¢ pe. by Serene to the calling routine 
with a true value. 
Return true ; 
End ; 
' Determine if memory entries are selected. 


if ((.exclude _maskCexc$v_memory]) OR 


VENA 
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> 943 15 ¢ (. inc lude_maskCinc$v_memory]) ) 
> 944 15 Then 
> 945 12 4 ! 
: 946 1525 ! Determine if this entry is a ‘memory entry’. : 
> 947 1526 ! 
> 948 1527 Begin 
> 949 1528 Incr_I from 0 to 1 do ‘ 
; 950 13¢2 4 Begin 
: 951 1530 4 If .embCemb$w_hd_entry] EQLU .memorys(.1] 
$ 926 1531 4 Then 
; 1336 4 ‘ 
; 954 133 4 : Indicate that this entry does match a selected 
; 955 1534 4 : entry type. by returning to the calling routine 
; 956 1535 4 ! with a true value. 
: 957 1536 4 ! 
; 958 1537 4 Return true ; 
; 959 1538 3 End ; 
; 960 1539 2 End ; 
; 961 1540 
3 386 1541 : ; . 
; st 1346 } Determine if device timeours are selected. 
: 965 13544 3 If ((.exclude_maskCexc$v_dev_timeouts]) OR 
> 966 1545 3 (. inc lude_maskCinc$v_dev_timeouts])) 
s Por 1546 § Th 
; 968 1547 ! 
; 969 1548 2 ! Determine if this entry is a device timeouts. 
: 970 1549 ¢ ! 
; ori 1550 Begin ? 
3 are 133) 3 Dev_selection_required = true ; 
: 974 1388 : If .embLemb$w_hd_entry] EQLU EMBS$K_DT 
s 975 1554 3 Then 
; 976 1555 ! 
3 977 1556 ! Indicate that this entry does match a selected 
; 978 1557 ! entry type, by returning to the calling routine 
: 979 1558 ! with a true value. 
; 980 1559 3 ‘ 
: 981 1560 3 Return true ; 
: 982 1561 2 3 
> 983 1366 § 
3; «984 156 
; 4985 1564 } 2 
; 986 1565 ! Determine if unknown entries have been selected. oe ee 
: 987 1566 ! If unknown entries have not been excluded, then see if this is an 
3 one 1362 unknown entry. If it is set UNKNOWN_ENTRY true. 
: pa 136? : Initialize the unknown entry indicator (not an unknown entry). 
; 99 1571 If ((.exclude_mask qxchu unknown entry]? OR 
; 99 1376 (. inc Lude_maskCinc$v_unknown_entry])) 
: 994 157 Th 
: 995 1574 ‘ an E 
; 996 1575 ! Determine if this is an unknown entry. 
: 997 1376 ee 
: 998 157 Begin 
; 999 1578 If .unknown_entry 
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1 
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$-Jan-19 4 1 28:33 
Then Return true ; 
ne ; 
! 
} Determine if unsolicited mscp entries are selected. 
if ((.exclude_maskCexc$v_unsol_mscp]) OR 


(. inc lLude_maskCinc$v_unsol_mscpJ)) 
Then 


! Determine if this entry is an unsolicited mscp entry. 


Begin 
If .embCenb$u_hd_entry] EQLU EMBSK_LOGMSCP 
en 

' 
: Indicate tnat this entry does match a selected 
! entry type. by returning to the calling routine 
with a true value. 


Return true ; 
End ; 


' 
Determine if volume changes are to be excluded. 
if ((,exclude_maskCexc$v_volume]) 
OR (.include_maskCinc$v_volume]) ) 
Then | 


Determine if this entry is a volume entry. 


Begin 
Dev_selection_required = true ; 
Incr 1 from 0 to 1 do 
egin 
If’ .embCenbSu_hd_entry) EQLU .volume[.1] 
Then 
Indicate that this entry does match a selected 


entry type, by returning to the calling routine 
with a true value. 


End 


Return true ; 
End ; 


Indicate that this entry does not match any of the selected 
entry types, by returning to the calling routine with a 
alse value. 


Return false ;_ 
End ; ! Routine 
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v04-001 ‘ sets 41 ab:3s OSSSDUAG2: EERE .GUGSRCIRECSELECT.B3204>" BY 


003¢ 00000 VERIFY_ENTRY: 


.WORD Save R2,R3,R4,R5 : 1351 : 
5 999900006 0 9 9002 MOVAB EMB+4, RS : ; 
4 000 9000" 0 9 000 MOVAB DEV SELECTION_REQUIRED, R4 : : 
ammemets GR! Cena’ FeV SELECTION. REQUIRED : 1381 
51 000000006 86 00 0019 MOVL EXCLUDE MASK, ~R1 : 1386 ; 
07 61 09 £0 00020 BBS a9, (RIT, 1$ : : 
30 63 D0 90 4 MOVL INCLUDE MASK. RO : 1387 ; 
OA 6 9 al 0 7 BBC #9, (ROY, 2$ : : 
64 01 90 00028 1$ MOB #1. DEV SELECTION_REQUIRED + 1393 : 
0062 8F 65 B1 000 CPW 0 CEMB+4, 99 : 1394 : 
7D 13 000 BFOL 4=—s«éd6$ : ; 
07 61 OA £0 00035 2s LBS #10, (R1), 3$ + 1407 ; 
50 63 D0 00039 MOVL § INCLUDE_MASK, RO + 1408 ; 
10 60 OA €E1 0003C BBC #10, (RO), 5$ : F 
50 D4 00040 38 ame es + 1416 ; 
52 Oc A440 9A 0004¢ 4$ MOVZBL BUGCHKS[IJ, R2 : : 
65 52 B1 0004 CMoW RZ, EMB+G : 3 
7D 13 OO04A BEQL ss’ : ; 
F2 50 02 F3 0004C AOBLEQ #2, I, 4$ + 14146 : 
07 61 08 EO 00050 Ss: BBS wii, (Ri), 6$ + 1430 : 
50 63 DO 00054 MOVL INCLUDE_MASK, RO > 1431 : 
10 60 0B €1 00057 BBC wii, (RO), 8$ : : 
50 04 0005B 6$: CLRL : 1439 : 
52 10 A440 9A 0005D 7S: MOVZBL CONTROL[IJ, R2 : 3 
65 52 61 4'9¢4 CMP R2, EMB+4 3 3 
7B 13 0006 BEQL ; : 
F2 50 06 F3 00067 AOBLEQ #6, I, 7$ : 1437 ; 
07 61 OC £0 00068 8$ BBS wid, (ri), 9$ > 1453 : 
56 63 DO 0006F MOVL INCLUDE MASK, RO > 1454 3 
10 60 OC €1 00072 C wi2, (RO), 11 : 3 
50 D4 00076 9S: CLRL + 1462 : 
52 18 A640 9A 00078 10$:  MOVZBL CPULIJ, R2 : ; 
65 52 81 90070 CMPW RZ, EMB+4 : ; 
60 13 0080 BEQL ; : 
F2 50 07 F 90082 AOBLEQ #7, I. 10$ + 1460 3 
07 61 OD €0 00086 11$: BS aig, (Ri), 12% + 1476 : 
50 63 00 OO08A MOVL § INCLUDE MASK, RO + 1477 : 
13 60 0D gt 008D BBC #13, (RO) ; : 
64 gi 1128: MOVB = #1, DEV_SELECTION_REQUIRED 3 1483 ; 
0 D4 06094 it ie : 148 3 
52 20 A440 9A 00096 13$: MOVZBL DEV_ERRORS[IJ, R2 ; F 
65 52 81 00098 CMPW ORO, "EMB+4 : 
66 13 009 BEQL § ; 
F2 50 02 F3 000 AOBLEQ #2, I, 13% > 1485 
07 61 Of EO OOOA4 148 BBS wid, (ri), 15$ : 1501 
50 63 DO O00A8 MOVL INCLUDE _MASK, RO : 1502 
05 60 of E1 000AB BEC #14, (RO), 178 : 
02 45 61 OOOAF 15$: gnats, ; 1508 
6— 13 000B2 168: BEQL 2$ : 
61 a 17$:  TSTw (RI) > 1521 
07 0 BLSS 18S : 
50 63 00 00 MOVL § INCLUDE_MASK, RO > 1522 


RICSELECT Entry Validation -Jan-1985 15:58:31 VAX-11 Bliss<-32 V4.0-742 Pa 7 R 
v04-001 B-Jan-t19 1 +28: 3} $255$DUAG2: CERF .BUGSRCIRECSELECT.B32:1° (3 vo 
60 0088 TSTw (RO ; 
10 8 Mitt BGEC 30Os« 218 : 
30 ps OOBF 78$:  CLRL I : 1530 
52 24 A440 9A 9) 19$: | MOVZBL MEMORYSCIJ, R2 : 
6 2 B1 C6 CMPW OR, ~EMB+4 : 
g 13 OC9 20$: BEQL 3 ., : 
F2 50 01 £3 000CB AOBLEQ #1 19$ + 1528 
07 02 al €8 99 CF 21$:  BLBS scant’ 22$ : 1544 
50 63 D0 00003 MOVL Ince Ube afisk. RO + 1545 
OA 02 ad 34 00006 BLBC CRO 24 : 
64 01 90 OO0DA 22$:  ##mMOVB #1 pév SELECTION_REQUIRED + 1551 
0060 &8F $3 B1 99000 CMPW grees, 7: : 1553 
13 QOO0OE2 23$: = BEQL ; 
07 61 13 €0 0004 24$: BBS #19, 25$ + 1571 
50 63 00 000E8 MOVL INCLUDE tse RO : 1572 
07 60 13 E1 OOOEB BBC #19, wo Rod; é : 
2C 000000006 00 €E8 OOOEF 25$: BLBS | UNKNOWN ENTRY. 32$ : 1578 
07 61 11 £0 OOOF6 26$: BBS #17, (RT), 278 : 1585 
50 63 DO OOOFA MOVL INCLUDE MASK, RO : 1586 
07 60 11 £1 000FD BBC 25s ; 
0065 8F 65 81 00101 278: CMPw ENB+4, y : 1592 
1A 1300106 28$: BEQL 2$ : 
07 61 le E0 00108 29$: BBS #18, (R1), 30$ > 1605 
50 63 DO 0010C MOVL INCLUDE mAsk RO : 1606 
17 60 12 £1 0010F BBC #18, 3 
64 01 9000113 30$: mova #1, “DEV. SELECTION. REQUIRED > 1612 
50 04 00116 CLRL : 1616 
51 28 A640 9A 00118 31$:  MOVZBL VOLUMECIJ, R1 : 
65 51 B1 0011D CMPW OR, «EMB+4 3 
04 12 90120 BNEQ 336 3 
50 01 00 001 : 32$:  MOVL #1, RO + 1623 
04 0012 RET ; 
EE 50 01 F3 00126 33$:  AOBLEQ #1, I, 31$ + 1614 
50 D4 0012A 34$: CLRL RO : 163 
04 0012¢ RET > 163 


; Routine Size: 301 bytes, Routine Base: $CODE + 039D 


: 1055 1634 1 
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H 1038 16 é 1 — ROUTINE DEVICE_TYPE_ENTRY = : 
: egin 3 
3; 1059 16 3 
3 1980 1638 '+¢ ; 
3: 1061 1639 ! 3 
: 1896 ior? Functional Description: : 
$ 1064 1006 i This routine will determine if the current entry is a device ; 
3; 1065 164 : type entry; (device attention, device error, device timeout, ; 
: 1066 1664 2 volume dismount, volume mounts. It return TRUE if the current : 
3; 1067 1645 ; entry matches any of the device type entries or return FALSE : 
: 1969 1906 if the current entry does NOT match. : 
: Oy 1968 Calling sequence: ; 
: 107 1650 ; DEVICE_ENTRY_TYPE () : 
: Ore 1626 Input parameters: ; 
; 1076 1654 2 None ; 
: 107 1655 ' 3 
: Hh 4 1928 Output parameters: : 
> 1080 1658 2! None F 
: 1081 1659 ! 3 
; ORE 1660 tee 3 
3; 108 1661 3 
3: 1084 1966 3 
: 1085 166 Device_entries: VECTOR (6,byte,unsigned] ! Storage for device type ‘ 
3; 1086 1664 § ' entries. : 
3: 1087 1665 Initial (BYTE 3 
3; 1088 1666 (EMBSK_DA, ' Device attentions 3 
3; 1089 1667 EMBSK_DE, ! Device errors : 
3; 1090 1668 EMBSK_OT, ! Device timeouts : 
: 1091 1669 EASSK_LM, 3 
3 1038 1670 EMBSK_SP ' Log message : 
: ioe +4 EMBSK~LOGMSCP) ) 3! Unsolicited mscp msg ; 
> 1095 1878 : 
: 1098 1or8 , Determine if the current entry is a device type entry. : 
; 1098 1978 incr from 0 to 5 do : 
; egin 3 
3 18s 1678 If embCenb$u_hd_entry) EQLU .device_entries(.1] : 
en 3 
3 1198 1680 ! 3 
3 110 1681 ! Indicate that this is a device type entry. by : 
: 1138 ' ; returning to the calling routine with a true value. : 
: 1106 1 “a Return true ; ; 
PY no ; e 
3171 16 3 
: 1109 1 ! 3 
3; 1110 1 ! Indicate that this is NOT a device type entry, by returning : 
3 1333 1 9 to the calling routine with a false vaiue. ; 
: 148 1691 Return false ;: : 
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1898 ¢ End ; ! Routine 


-PSECT SOWNS,NOEXE, PIC,2 
2 
98, 1, 96, 100, 99, 101 3 


4043 -BLKB 
65 63 64 60 01 62 000 eibtenet! a 


-PSECT S$CQDE,NOWRT, PIC,2 


0000 +4 ENTRY DEVICE_TYPE_ENTRY, Save nothing : 1635 
50 D4 0000 CLRL : 1678 
51 00000000'0040 9A 00004 1$ MOVZBL DEVICE_ENTRIESCIJ, R1 : 
000000006 00 51 ° 000 R1, EMB+4 : 
04 3 001 BNEQ $ : 
50 01 be : nove #1, RO 3 
E7 50 93 F 19 2$: AOBLEQ #5, I, 1$ 3 
0 BS 1D CLRL RO $ 
& 1F RET 3 
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paul Ine VERIFY _DEVICE_CLASS = 
e 


lee 

! 

Functional Description: 

This routine will determine if the device recorded by the 
current ensey matches any of the selected device class(es). 


It return TRUE if the current entry matches or return FALSE 
f the current entry does NOT match. 


i 

i 

i 

i 

i 

Calling sequence: 
VERIFY_DEVICE_CLASS () 
Input parameters: 

: None 

Output parameters: 


: None 


i Determine whether this is a unsolicited mscp entry and 
! whether to continue. 


If .embCemb$w_hd_entry] EQLU EMBSK_LOGMSCP AND 
T inc Lude“masktinc$v_disks] AND 
T .include_maskCinc$v_tapes) 


en 
Return false ; 


' 

Determine if 'BUS' entries are selected. 

if Cf .guc tude_neskiencév_buses ) OR 
-include_masklinc$v_buses])) 

' 

! Determine if the device recorded by this entry, matches the 

selected device class. 

Begin 

If ((C.embCemb$u_hd_entry] EQLU — LM AND 

-embCemb$b_lm_cTass] EQLU DC$_BUST) OR 


(C.embCemb$w_hd_entry] EQLU EMBSK_SP AND 
-embCemb$b_sp_cTass] EQLU DCS_BUSY) OR 


(.embLemb$b_dv_class] EQLU DC$_BuS) 
Then | 


i Indicate that this entry does match a selected device 


BeafeclO0s 1550-5) yay 
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! class, by returning to the calling routine with a 
: true value. 


Return true ; 
nd ; 


; Determine if ‘DISK’ entries are selected. 
if (( exclude maskfexc$v_disks ) OR 
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-include_masklinc$v_disks])) 


Determine if the device recorded by this entry, matches the 
selected device class. 


 ] 
oe («er ee ~~ 


(.embLemb$w_hd_entry] EQLU EMBSK_VD)) 


egin 
f(t cemb emb$w_hd_entry] EQLU EMBSK_VM) OR 
Then 


i Determine if the device recorded by this volume 
: mount or dismount is a ‘disk’ type device. 


Begin 
11 NOT TRANSLATE_CLASS (embCemb$t_vm_namtxt],DC$_DISK) 

en 

' 


i Indicate that the device recorded by this entry is 
! not a ‘disk’, by returning to the calling routine 
} with a false value. 


Return false 
Return true ; 


If ( (C.embCemb$w_hd_entry] EQLU EMBSK_LM) AND 
(,emoCembSb_Tm_class] EQLU DCS"DISK)) OR 


((.embCembSw hd_entry] EQLU EMBSK_SP) AND 
(.embCemB$b_sp_class] EQLU DCS_DISK)) OR 


: Entry type must be either a device error, timeout, or attention. 


’ (,embCemb$Sb_dv_class] EQLU DC$_DISK) ) 
Then | 

i Indicate that this entry does match a selected. 

! device class, by returning to the calling routine 
} with a true value. 

Return true ; 


1 
Determine whether this is disk related unsolicited mscp entry. 
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3; % 1809 If .embLemb$w_hd_entry] EQLU EMBSK_LOGMSCP AND 

; : : } 19 enseer (SsemBt diver typel 2 ch PTR(uplit("DISK"))) 
3 n 

3 ! 5 : \¢ Yes, return to the calling routine with a true value. 
3 1 1814 Return true ; 

: 1539 ise we, 

3: 1240 1 i é 

: ; 2) : \8 : Determine if ‘REALTIME’ entries are selected. 

3% rk i 0 If Cf -gxe Lude_maskboxcév_realtine ) OR 

> 1244 1821 (. inc lude_maskLinc$v_realtime])) 

: 1245 is ¢ hen 

: 1246 1 ' 

: 1247 1824 ! Determine if the device recorded by this entry, matches the 
3: 1248 \s 5 ! selected device class. 

3 1249 1 § : 

3; 1250 18 Begin 

3; 1251 1828 If .embCemb$Sb_dv_class] EQLU DC$_REALTIME 

5 a ie? 

3 1254 1831 ! Indicate that this entry does match a selected 

3; 1255 1836 ! device class, by returning to the calling routine 
3: 1256 183 ! with a true value. 

$ iset 1834 ! 

: 1258 1835 Return true ; 

3; 1259 te End ; 

: 1260 183 

3: 1261 1838 ! 

3 ’ og \e } Determine if "SYNCHRONOUS COMMUNICATION’ entries are selected. 
3 1264 1841 If Oy-GEs use neck i guctu_sync_coma}} OR 

3; 1265 1866 (. inc lude_maskCinc$v_sync_comm])) 

1569 ieeg. 5 MO", 

: 1268 1845 ! Determine if the device recorded by this entry. matches the 
: 1269 Hb ! selected device class. 

3; 1270 184 ! 

3: 1271 1848 Begin 

3; 127 1849 If .embCemb$b_dv_class) EQLU DC$_SCOM 

15h 1881 oops 

3; 1275 1 26 ! Indicate that this entry does match a selected 

: 127 185 ! device class, by returning to the calling routine 
3; 127 1854 ! with a true value. 

3: 127 1855 : 

3: 127 1 2$ Return true ; 

3 1 185 nd ; 

3: 1281 1 28 

31 § 185 ‘ 

3 ' ' : Determine if ‘TAPE’ entries are selected. 

3 1285 1 Z if (( exc lude_maskCexc$v_tapes ) OR 

3; 7 1 (. inc lude_maskLinc$v_tapes])) 

3 1 1 Then 

3: 1288 1865 
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! Determine if the device recorded by this entry, matches the 
selected device class. 


Begin 
If CC enbfenbsu_hd_entry EQLU EMBSK_VM) OR 
me emb$w_hd_entry] EQLU EMBS$K_VD)) 


Determine if the device recorded by this volume 
mount or dismount is a ‘tape’ type device. 


Begin 
1f Not TRANSLATE_CLASS (embCembSt_vm_namtxt],DC$_TAPE) 
e 


i Indicate that the device recorded by this entry is 
' not a ‘tape’, by returning to the calling routine 
: with a false value. 


Return false 
lse 
Return true ; 


If ( (C.embCemb$w_hd entry] EQLU EMBSK_LM) AND 
(.embCemb$b_Tm_class] EQLU DCS$_TAPE)) OR 


((.embCemb$w pé.entry) EQLU EMBSK_SP) AND 
(.embLemb$Sb_sp_class] EQLU DCS_TAPE)) OR 


Entry type must be either a device error, timeout, or attention. 


 (,embLemb$b_dv_class] EQLU DCS$_TAPE) ) 
Then 

i Indicate that this entry does match a selected 

! device class, by returning to the calling routine 

: with a true value. 

Return true ; 

1 

Determine whether this is tape related unsolicited mscp entry. 


if .embCemb$w_hd entry] EQLU EMBSK_LOGMSCP AND 
CHSEQL (2cemBCdriver_type),2,CASPTR(uplit(' TAPE’))) 
n 


: Yes, return to the calling routine with a true value. 
Return true ; 

End ; 
i Determine if MISC’ entries are selected. 


inf (( exc Lude_maskFexc$v_misc ) OR 
: (. include_maskLinc$v_miscJ)) 


H 2 
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3; 3 $ 1923 'Then 3 
3 1 1924 ! F 
3 1 3 1925 : Dete mine if the device recorded by this entry, matches the ; 
3 3 19 § ' selected device class. 3 
; 1350 19 ! 3 
3; 1351 1928 ! Begir 3 
3; 3 26 1929 ! If .embCemb$b_dv_class] EQLU DC$_MISC : 
3; 135 1930 ! Then ; 
3 1354 1931 ' 3 
; 1355 19 ¢ ! Indicate that this entry does match a selected : 
3; 1356 19 ! device class, by returning to the calling routine : 
3 1357 1934 ! with a true value. ° 
3; 1358 1935 ‘ $ 
3; 1359 1338 Return true ; 2 
: 1360 193 3 3 
: 1361 1338 : 
3 1 § 1939 ! ; 
; ! 1oat ; Determine if ‘LP’ entries are selected. : 
: 1365 1948 inf (( exc Lude_maskfexc§v_line_printr}) OR ; 
3 1 194 : (. include _maskLinc$v_line_printr])) : 
; ; 7 ieee ‘Then : 
: 1369 1946 i Determine if the device recorded by this entry, matches the 2 
; 1370 1947 ' selected device class. : 
3 1371 1948 ! 3 
3 13% 1949 ! Begin : 
: 1378 1950 2 If .embCembSb_dv_class] EQLU DCS_LP : 
3 1374 1951 ! Then ; 
3 1375 1336 ! : 
3: 1376 195 ! Indicate that this ney does match a selected : 
3 1377 1954 ! device class, by returning to the calling routine 3 
3 1378 1955 ! with a true value. . 
3; 1379 1956 ! : 
3; 1380 1957 ! Return true ; A 
3; 1381 1958 ! End ; ° 
3; 138 1959 . 
3 1 1960 ! 3 
; 1 : 130) ; Determine if "JOURNAL" entries are selected. : 
: 1336 1963 i1f ((.exclude_mask Sa ) OR : 
es | 1964 : (. inc lude_maskLinc$v_journal))) ‘ 
: 1 1965 Then : 
3; 1389 1396 ! : 
3; 1390 196 ! Determine if the device recorded by this entry, matches the 3 
: } 4 1308 : selected device class. : 
21 35 1990 “Begin : 
3 1394 1971 If .embCemb$b_dv_class] EQLU DC$_JOURNAL : 
3: 1395 197 Then 3 
3 1 38 197 ' ‘ 
3; 139 1974 ! Indicate that this entry does match a selected : 
3; 1398 1975 ! device class, by returning to the calling routine : 
3; 1399 1308 ! with a true value. : 
3 1400 197 ' 3 
3 1401 1378 Return true ; : 
3: 1402 197 : 3 
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: 1403 1980 

3 1404 1981 } 

: 1405 19 § ! Indicate that this entry does not match any of the selected 
3 es 19 ! device classes, by returning to the calling routine with a 
; 140 19 ! false value. 

: 1408 1985 : 

3; 1409 19 Return false ; 

3: 1410 19 1 End ; ! Routine 


-PSECT SPLIT,NOWRT,NOEXE, PIC,2 


48 53 49 44 00000 P-AAA: ASCII \DISK\ : ; 
45 50 41 54 00004 P.AAB: <ASCi] \TAPE\ : ; 
-PSECT S$CODE,NOWRT, PIC,2 
RIFY ASS: 3 
ses See —PEUORD Save R2,R3,R4,R5 : 1695 3 
55 000000006 00 9€ 0000 v EXCLUDE MASK, R5 : : 
54 000000006 00 9€ 9000 MOVAB INCLUDE"MASK. R4 : : 
gj omooenge ese asso, BBtIS fs] | 
0065 aF 32 BI 00018 cHPu Re, #io1 ; 3 
50 64 is 0088 MOVL INCLUDE MASK, RO + 1726 : 
OA 60 02 £0 00 BBS #2, (ROY, 1$ : : 
30 64 00 3 MOVL INCLUDE MASK, RO : 1727 ; 
0 01 AO E 00 BLBS (RO), 1S : : 
010A 31 000 BRW 28$ : : 
51 65 06 0033 1$ MOVL § EXCLUDE_MASK, R1 : 17346 : 
07 61 01 £0 000 BBS #1, (RIS, 2 : : 
50 64 DO OO03A MOVL § INCLUDE_MASK, RO : 1735 ; 
21 60 01 £1 BBC #1, CROY, 58 : ; 
0064 8F 52 8 1 CAP Re. #100 ; 1742 3 
80 8F ; 91 § CMPB FRB+16, #128 t 1743 i 
0063 8F fF AF bocce Cot RD 099 2 1745 : 
06 12 000 BNEQ 4$° : 3 
80 8F : 9 CMPB +16, #128 > 1746 ; 
78 1 BEQL : 3 
80 8F oc as 9 CMPB ne+28. #128 + 1748 ; 
7% 1 BEQL : ; 
07 1 02 € BBS #2, (R1), 6$ : 1761 : 
0 D MOVL INCLUDE MASK, RO : 1762 : 
45 0 E1 BBC a2, (ROY, 118 : : 
0040 &8F 3 8 CMPW RD. #64 > 1769 : 
0041 8F 2 CAPD, 65 ; 1770 

it mF ‘ym 

208 : 
50 F4 HK iH MOVZWL EMB+4, RO > 1789 
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#99 
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EMB+3\ 
a TRANSLATE_CLASS 
RO, 278 


EMB+4, RO 
RO, #100 


2 
MB+16, #2 


ie 3h 


1790 
1792 
1793 
1797 
1809 
1810 
1820 
; 1821 

; 1828 
; 1841 
; 1842 


1849 


; 186 
186 


1870 


1871 
1878 


1887 
1890 
1891 
1893 
1894 
1898 
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50 D4 00130 288: : 1987 
04 0015F 


; Routine Size: 320 bytes, Routine Base: $CODE + O4EA 


3 1411 1988 1 
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3 141 989 Routine VERIFY_DEVICE = 
3; 14 990 Begin 
3 14 991 
; 838 '4+ 
: 99 : 
994 !<o 
995 
996 Local 
997 Dev_name, 
998 Dev_name_length, 
999 Dev unit ’ 
Bnd Status ; 
ote Bind 
00 Lm_name_length = embLemb$t_lm_devnam] : BYTE, 
004 sp_name_length = embLemb$t_sp_devnam] : BYTE, 
005 dv_name_length = embLemb$t_dv_name] : BYTE ; 


= 


BF AAAAAMPIPININIHHIAIAIGPIPIPIPIPIPIPIPI PO NPIPIPIPIPIPIPIPIPIPIPUPIPIPIPOPUPIPIPOPONIPIPUNPPOPINPUPUNY = 


Oo 
oO 
oo 


] 
: Determine whether this is an unsolicited mscp entry and 
! return with a false value if so (logmscp entries are not 
: applicable to a specific device). 
i t -embCemb$w_hd_entry] EQLU EMBSK_LOGMSCP 

en 


Return false ; 
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10 
1] 
18 
14 
15 
4 016 : 
4 017 ! Determine the type of entry so that the comparison for the 
: aig device class is made against the appropriate field in the entry. 
2 Ost } Determine if this a log message entry. 
4 Os¢ If .embCemb$w_hd_entry] EQLU EMBSK_LM 
ri OS% Then 
4 025 ! Entry type is a log message, get the device name, 
3 037 : name length, and unit number. 
5 028 Begin 
5 S44 Dev_name = embLemb$t_lm_devnam]) + 1 ; 
5 030 Dev_name_length = .lm_name_length ; 
5 031 Dev_unit = .embLemb$u_lm_unit] ; 
39 038 
45 0 Else 
458 0 : 
rit 3 5 : Determine if this is a log status entry. 
461 03 Begin 
o6¢ 038 If .embCemb$w_hd_entry] EQLU EMBSK_SP 
46 039 Then 
464 040 : 
465 041 ! Entry type is a log status, get the device name, 
$56 ots ! name length, and unit number. 
46 Re : 
468 & Begin 
469 045 Dev_name = embLemb$St_sp_devnam] + * ; 
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: 1470 4 Dev_name_length = .sp_name_length ; 
3 1471 89 4 Dev_unit™= nambCenbSursp unith:: 
° alg 048 4 End 
3; 147 049 Else 
> 1474 050 : 
> 1475 051 : Determine if this a volume mount/dismount entry. 
: 1476 O26 : 
3 1477 053 4 Begin 
; 1478 054 ; If cj -euppombyu Nd entry? EQLU EMBSK_VM) OR 
: 1479 step (.embLemb$w_hd_entry] EQLU EMBSK_VD)) 
; 1480 056 4 Then 
3 et Saf 4 : 
3: 14 ¢ 58 4 : Entry type is a either a volume mount/dismount, get 
3; 148 059 4 ! the device name, name length, and unit number. 
> 1484 Soot 4 : 
>: 1485 061 5 Begin 
> 1486 soes 5 Dev_name = embCembSt_vm_namtxt] ; 
: 1487 063 5 Dev_name_length = .embLemb$b_vm_naming) ; 
: 1488 2064 5 Dev_unit = .embCemb$w_vm_unit] ; 
> 1489 2065 5 End 
3 1490 2066 4 Else 
3 1491 2067 4 ’ 
3 Hr 2068 4 : Entry type must be either a device error, device timeount, 
3: 149 2069 4 ! or a device attention, get the device name, name length, and 
> 1494 2070 4 ! unit number. 
3 1495 2071 4 : 
3 1496 sore 5 Begin 
3 1497 2075 5 Dev_name = embCemb$t_dv_name] + 1 ; 
: 1498 2074 5 Dev_name_length = .dv_name_length ; 
3 1499 075 5 Dev_unit = .embLemb$w_dv_unit] ; 
3; 1500 076 4 End’; 
; 7501 077 3 End ; 
; 1208 2078 2 End ; 
3; 150 2079 § 
3 1504 soee ! 
; 1505 2081 2 ! Call the search queue routine to determine if the device recorded by 
; 1306 soos § : this entry matches any of the selected devices. 
; HF +4 2086 2 Status = SEARCH_QUEUE (.dev_name,dev_name_length,dev_unit) ; 
3; 1510 2086 : 
3 1511 087 ! Return the status from the search queue operation to the 
3 1316 088 ! calling routine. 
3 131 089 : 
3 1514 . Status , 
3 1515 2091 1£€nd; ! Routine 
0004 00000 VERIFY_DEVICE: 
2 000000006 mova ERB RO ope 
sf es SUL #8, sb ; 
$ C C MOVZWL EMB+4, 20 > 2012 
0065 FF OF cMPW SRO, «#101 ; 
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1 14 BNEQ ss : 
Tee oe 8 i an 
0064 &F 50 81 19 1$: CMPW RO. #100 : 2022 
OF 12 if BNEQ 2 : 
51 11 A2 Of MOVAB ENB+21 : 30 
04 AE 10 A 7 024 MOVZBL LM_NAME ENGIN,” DEV_NAME_LENGTH 3; 20 
6E OE Ae 3¢ 0029 MOV ZWL Enesi8, “DEV_UNIT ; $08 
0063 = 8F 36 B1 O000F 2$: CMPW = soaRO, #99 3 20 
0B 12 000 BNEQ 3$ : 
51 30 A2 9E 000 MOVAB EMB+65 3 2045 
046 AE C Ad 9A A MOVZBL SP_NAME ENGIN. SEV. NAME _LENGTH + 2066 
¢6 11 0003F BRB 3 2047 
0040 8F 0 61 90041 3$ CMPW sO, #64 + 2054 
97 13 0046 BEQL = 4 : 
0041 8F 0 Bi 0004 CMPW SRO, #65 : 2055 
OF 12 00040 BNEQ : 
51 18 A2 9E F 4$ MOVAB £EMB+31, DEV_NAME 3 206 
046 AE 1A A2. 9A 00053 MOVZBL EMB+30. Eye “NAME _LENGTH 3 206 
bE 18 A2 3¢ 00058 MOVZWL EnB+26. DEV-UNIT™ : 
0D 11 0005c RB $ + 2054 
51 38 A2 9E 9005 5$: v ENB +65 + 2073 
04 AE A A2 9A 0006 MOVZBL DV_NAME_ PENCTAN DEV_NAME_LENGTH + 2074 
6E 26 A2 3C 00067 68: MOVZWL EMB+42, “DEV UNIT + 2075 
SE DD 90068 7$: PUSHL § > 2084 
08 AE 9F 0006D PUS DEV NAME LENGTH : 
51 DD 00070 PUSHL DEVNARE : 
000000006 00 03 FB 0007 CALLS #3,” SEARCH_QUEUE ; 
04 000 RET : 2091 
; Routine Size: 122 bytes, Routine Base: $CODE + 062A 


1516 2092 1 
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: 1 18 093 1 GLOBAL ROUTINE TRANSLATE_CLASS (search_name,dev_class) = 

3 331 094 Begin 

; 1520 244 

: 1853 ae 

: ! § 098 Functional Description: 

: 1525 100 i This routine searches the device tables to verify the device 

3 12 $ 19) class and device name. 

: F § 198 Calling Sequence: 

: i 0 19s ; TRANSLATE_CLASS (search_name,dev_class) 

: 1382 4 Input Parameters: 

: 1238 1% Search name = First two characters of device name 

; 1336 111 i Dev_class = Device class to search for. 

: 1335 18 

: 1539 114 i If the device class is found, then the specified device name 

3; 1540 2115 ' is compared oge'nst the device names in the device specific table. 
: 1263 gis } Returns true if both match. 

: 1208 sHi8 i Returns false if device class and/or device name doesn't match. 

3 1544 119 ; (This should eventually be caught and handled by the parse_devname 
3 1545 120 ! routine.) 

: 1546 \$] ‘ 

sn oie 

: 1549 124 2 EXTERNAL 

; 1550 $1 5 Dev_addrs_ptr: REF VECTOR [,long], 

; 1551 126 Dev_class_ptr: REF VECTOR C,word], 

; 1326 gigi Max_classes: REF VECTOR C,byte); 

: 1384 § OWN 

: 1555 130 I: BYTE Initial (1), ! Device address pointer index 
: 1326 ; 1 Max_classes_value: BYTE ; 

: 1558 1 ‘ LOCAL 

3; 1559 1 Dev_specific_tbl: ny VECTOR C,word], ! Device specific table address 
: 1269 ! 5 K: Initial (0) ; ' Device specific table index 

: 1389 1 BIND 

3 156 1 8 Cs_name = CHSPTR (uplit('CS")) ; 

: 18e¢ 140 3: 

: 1366 141 i Device class ptr is the address of a table that contains supported device 
3 136 146 : classes and pointers to the device class specific information tables. 
: 1368 144 i The device class specific table contains the supported device names, 
: 1570 145 ! image name pointers (image that needs to get activated), and transfer 
; Vent 198 } address pointers. 

: 1398 148 i This routine locates the matching device class retrieves the device 

3; 1574 14 ! specific pointer and matches the specified device name against those 


3 
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; ! Ne } 9 : in the device specific table. 

: : a } ¢ i Loop throuch all of the device class entries. 

: } 79 : 3 hex _classes_value = max_classes(0) ; 

: : 1 ! § cual A [res 1 to .max_classes_value do 

: } : 138 if? wGev. class_ptr(.1] EQL .dev_class 

i] 5 160 4 “"pegin 

: } 19 : Get the address of a device class specific table. 

: 1589 164 4 Dev_specific_tbl = .dev_addrs_ptr(.1] ; 

; 1590 165 4 

3; 1591 166 4 ' 

3 1 3 167 4 i Initialize another index for the device class specific table so don't 
$ 133 198 4 i lose the current position. Determine if the contents of the device 
3: 1594 18 4 i mame field is valid OR whether the end of the device name entries 
: 1595 170 4 ! in the table has been reached. 

3 1336 171 4 ' 

: 1597 7 4 K=i1; 

; 1598 173 4 Until (.K EQL .dev_specific_tbl0]) do 

3; 1599 174 2 Begin 

: 1600 175 ! 

3; 1601 178 i Determine if the selected device name matches any of the 

3 1 ive device names recorded in this table. 

; Hb 4 it CHSEOL (2, CHSPTR(.search_name), 2, CHSPTR(dev_specific_tbiC.«J)) 
54 181 " 

3 1809 1 § i The device names match. Using the class dir table index, 
3 ios : : get the corresponding device class. 

: 1610 185 ae true ; 

: 1611 1 

: 11g 1 ' 

3; 161 1 i ; Update the device name pointer indices. 

3 1614 189 

3; 1615 1 ‘ =.Ke1; 

3 Joig 191 4 End ; 

3; 161 135 End ; 

5 1918 19 End ; 

: 161 194 

Me BS 

: q § 199 i The name fur the argos device ‘CSA is not included in the device name 
3% 138 : Sables contained d+ is, 18. nS. t really is a second usvice name yf 

3: 16246 1 ' the RX device which ng Lud n the dvice” tables. There should oe 

; 1625 ' a table that includes devices tt these, however because there is only 
; $ oun at this time, it is checked for explicitly. 

: : 8 : it ¢ CHSEQL (2, CHSPTR(.search_name), 2, cs_name) 

: 1 5 ' 

3 1 $ i This is a ‘CS entry, determine whether the ‘'CS' device class 


3 
voosooT cour te ree Bo ganct gts 13:28:35 — YOSSRDURLS PERE. SbeSacdhecsevect.es2ei™ (33 
} matches the device class being searched for. 


Begin 
i -dev.class EQL DC$_DISK 
n 


e 
! Indicate that the device class matches by returning with 
a@ true value. 


PAAAAAOO 


SSELEIE ET eons 


Return true ; 
End ; 


] 

Could not locate a class for this device name. 
Return false ; 

End ; !' Routine 


kk dd 
FUN —- OVONOUEWNO0On~ 


RNRNNIN 2 3 OOO 


-PSECT SPLIT,NOWRT,NOEXE, PIC,2 
00 00 53 43 00008 P.AAC: .ASCII \CS\<0><0> 
-PSECT SOWNS,NOEXE, PIC,2 


01 00036 I: .BYTE 1 F 
00037 MAX_CLASSES VALUE: 
-BLRB 
CS_NAME= P.AAC 
-EXTRN DEV_ADDRS_PTR, DEV_CLASS_PTR 
«EXTRN MAX~CLASSES 
-PSECT SCODE.NOWRT, PIC,2 
o03¢ .ENTRY TRANSLATE_CLASS, Save R2,.R3,R4.R5 
55 00090000" 09 : ROVAB MAX. CLASSES_VALUE, R5 
$5 000000006 30 MOVB § MAX_CLASSES, MAX_CLASSES_VALUE 
4 oA MOVZBL MAX_CLASSES_VALUE, R4 
fi ety 
51 000000096 po 18 VL DEV CLASS_PTR. R1 
6140 3F PUSHAW (RIT F 
08 AC 9E 10 t CHP ZV £0, #16, a(SP)+, DEV_CLASS 
1 000000006 D MOVL § DEV_ADDRS_PTR, R1 
i 61 p mOVL (RITE , BDEV_SPECIFIC_TBL 
52 63 1 09 F 28 cPzV 40. #16, (DEV_SPECIFIC_TBL), K 
6342 06 7 6 CMPW SSEARCH NAME. (DEV_SPECIFIC_TBL)CKJ 
i fe 
EE BRB 2$ 


ssi" 


3; Routine Size: 


Entry Validation 


: 00000000° 80 04 ec ei 
01 08 AC 9 
4 
50 1 4 
a: 


102 bytes, 


Routine Base: SCODE + 06A4 


Sates 18:88: 


4B 3$: 


mere y B32rie" (3) 
cepa astantn, ReH_ CS_NAME ; $33 
EREL V_CLASS, at $ 2210 
BNed SS ; F 
Rov. 1, RO ; 2215 
ee a. 


~EXTRN LIBSSIGNAL 


; PSECT SUMMARY 
: Name Bytes Attributes 
: 56 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
: SCODE 1862 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
: SPLIT 12 NOVEC.NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
Bi ee en eee ne ee 5k Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
; _$255$DUA18:CSYSLIBILIB.L32:1 18619 72 0 1000 00:01.4 
3 COMMAND QUALIFIERS 
° BLISS/CHECK=(FIELD, INITIAL .OPTIMIZE)/LIS=LIS$:RECSELECT/OBJ=OBJ$:RECSELECT MSRC$:RECSELECT/UPDATE=(BUGS$:RECSELECT) 
Size: 180 egge, + 68 data bytes 
Run Time 
Elapsed Time: 


Lines/CPU Min 
Lexemes/CPU-Rin: 2 3 
352 pages 


Memory Used: 


RECSELECT Entry Validati 
vO4-001 y Va ation 


; Compilation Complete 


ee. 
9-Jan-1985 15:58:31 
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